home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / aeclipb.zip / MENUDEMO.PRG < prev   
Text File  |  1993-01-04  |  2KB  |  62 lines
  1. * Program:      Menudemo.prg - demo use of bldmen function
  2. * Author:       Milton F. Shaw Jr.
  3. * Copyright:    Auto Exec Inc, (c) Copyright 1989, ALL RIGHTS RESERVED
  4. * Date:         October 27, 1989
  5. * Purpose:      Allow quick menu building by calling a function.
  6. * Notes:        For Distribution on Electronic Bulletin Boards as long as
  7. *               the following files are included in the archived file:
  8. *                   Buildmen.obj
  9. *                   Menudemo.prg
  10. *                   READIT.COM
  11.  
  12. * Auto Exec Inc. operates and maintains Auto Exec BBS, this bulletin board
  13. * operates 24 hours a day, 7 days a week.  Storage capacity is 1 GIGABYTE,
  14. * presently there are 3 nodes.  Nodes 1 & 2 use HST 9600 baud modems and 
  15. * Node 3 uses a V.32c MicroCom Qx/V with 38,400 buad capability.  All nodes
  16. * will support 300-19200 baud, 8-N-1.
  17. *
  18. * Auto Exec BBS main features are Clipper, dBASE, FoxBase, Novell, Education
  19. * Games, Adult and MacIntosh files.  Only registration required for access
  20. * and ability to download 450K bytes per day.
  21.  
  22.  
  23.  
  24. set color to "gr+/b,r/w,b"
  25.  
  26. * Set up array to build menu from
  27.  
  28. declare menuarray[20]
  29.  
  30. * Define each menu item
  31.  
  32. menuarray[1]="1. Large Clipper File Section"
  33. menuarray[2]="2. Large dBASE/FoxBase File Section"
  34. menuarray[3]="3. Educational Software Section"
  35. menuarray[4]="4. Pascal, 'C' & other Programming"
  36. menuarray[5]="5. Clipper, dBASE, Novell Conferences"
  37. menuarray[6]="6. Exit"
  38.  
  39. * Define Menu Title
  40. menutitle="Auto Exec BBS Features"
  41.  
  42. * Define Menu Color
  43. menuclr="w+/r,r/w,b"
  44.  
  45. * Define Menu Type - "W" - window, "C" - Clear Screen
  46. menutype="W"
  47.  
  48. * Define the menu return variable
  49. returnwhat=0
  50.  
  51. * Define Shading (.T. or .F.)
  52. shade=.T.
  53.  
  54. * Define the Top Offset - Moves the window up (positive number), down (neg #)
  55. offset=4
  56.  
  57. returnwhat=bldmenu(menuarray,6,menutitle,menuclr,returnwhat,menutype,shade,offset)
  58.  
  59. * Print results
  60.  
  61. ? returnwhat
  62.